perm filename XGP[S78,JMC] blob sn#361177 filedate 1978-06-15 generic text, type T, neo UTF8
*****ASSUME A(RW,w,W2,1)∧color(W2,w)=B;

1 A(RW,w,W2,1)∧color(W2,w)=B  (1)

*****∀E elwek3 RW,w;

2 A(RW,w,W2,1)≡(A(RW,w,W2,0)∧A(RW,w,W12,1))  

*****∀E elwek1 w;

3 A(RW,w,W12,1)≡(A(RW,w,W12,0)∧((∀w.(A(w,w1,W1,0)⊃∀w2.(A(w1,w2,W2,0)⊃color(W2,w2)=color(W2,w1)))∨∀w.(A(w,w1,W1,0%
)⊃∃w2.(A(w1,w2,W2,0)∧¬(color(W2,w2)=color(W2,w1)))))∧(∀w.(A(w,w1,W2,0)⊃∀w2.(A(w1,w2,W1,0)⊃color(W1,w2)=color(W1,%
w1)))∨∀w.(A(w,w1,W2,0)⊃∃w2.(A(w1,w2,W1,0)∧¬(color(W1,w2)=color(W1,w1)))))))  

*****TAUT A(RW,w,W12,0) 1:3;

4 A(RW,w,W12,0)  (1)

*****TAUT ∀w.(A(w,w1,W2,0)⊃∀w2.(A(w1,w2,W1,0)⊃color(W1,w2)=color(W1,w1)))∨∀w.(A(w,w1,W2,0)⊃∃w2.(A(w1,w2,W1,0)∧¬(%
color(W1,w2)=color(W1,w1)))) 1:3;

5 ∀w.(A(w,w1,W2,0)⊃∀w2.(A(w1,w2,W1,0)⊃color(W1,w2)=color(W1,w1)))∨∀w.(A(w,w1,W2,0)⊃∃w2.(A(w1,w2,W1,0)∧¬(color(W1%
,w2)=color(W1,w1))))  (1)